سفارش تبلیغ
صبا ویژن
دوستی افسرده دل، کمتر می پاید . [امام علی علیه السلام]
لوگوی وبلاگ
 

دسته بندی موضوعی یادداشتها
 

آمار و اطلاعات

بازدید امروز :497
بازدید دیروز :676
کل بازدید :410863
تعداد کل یاداشته ها : 1000
04/2/16
2:14 ع
موسیقی

 

از وقتی که محیط های برنامه نویسی بصورت visual  درآمد( از دلفی 1 تا 2005 ) کامپاننت ها بوجود آمدنند.

کامپاننت ها اشیایی هستند که حتی بعضی از آنها visual هم نیستند.( مانند timer )

هر کامپاننت در دلفی خاصی قابل دسترسی است.

بعنوان مثال: کامپاننت vclskin برای موارد زیر موجود است:

 

Delphi 5 _ Delphi 6 _ Delphi 2005 _  Delphi 7

 

البته اکثر کامپاننت های دلفی 7 روی دلفی 2005 نیز کامپایل می شود.

برای قراردادن کامپاننت ها در دلفی باید آنها را در بسته (package ) قرار داد.

سپس باید بسته را compail   کرد و بعدهم از کامپاننت استفاده کرد.

برای افزودن یک رویداد به یک کامپاننت:

·         گام1: اول دلفی را باز کنید و در منوی component   رویnew component   کلیک کنید.

·         گام2: درصفحه new component   یک کامپاننت از کلاس دکمه تعریف کنید و روی دکمه ok  کلیک کنید.

·         گام3: حالا به قسمت private  کد زیر را اضافه کنید:

Qonmouseleave:Tnotifyevent;

Procedure qonmouseleave (var msg:tmessage);

Message cm-mousleave;

·         گام4: حالا به قسمت protected  کد زیر را اضافه کنید:

Procedure doonmouseleave;

Dynamic;

·         گام5: به قسمت published  کد زیر را اضافه کنید:

Property onmouseleale:Tnotifyevent real qoamouseleave

Write qonmouseleave;

·         گام6: حالا بعد از:

Procedure Register;

Begin

Registercomponents("sample",[Tform]);

End;

این کد را اضافه کنید:

Procedure TformW.qonmouseleave(var msg:Tmessage);

Begin

Doonmouseseleave;

End;

Procedure TformW.Doonmouseleave;

Begin

If assigned(qonmouseleave)Then qonmouseleave(self);

End;

حالا کامپاننت را نصب کنید.

رابطهای سریع کامپاننت ها که از محتوای HTML  پشتیبانی می کنند باید از ابزار رابط باشند.